home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / ERATOS.BAS < prev    next >
BASIC Source File  |  1992-08-10  |  774b  |  41 lines
  1. 'Date: 03-23-92 (22:35)
  2. 'From: BRENT ASHLEY
  3. '---------------------------------------------------------------------------
  4. 'Here's a variation on a program I entered in a primes contest about a
  5. 'year ago.
  6.  
  7.  
  8. DEFINT A-Z
  9. ' initialise array to zeros
  10. DIM flags(10000)
  11.  
  12. max = 10000
  13. rootmax = SQR(max)
  14. NonPrime = -1
  15.  
  16. ' show 2 as prime
  17. PRINT "      2 ";
  18.  
  19. ' flag all non-primes
  20. FOR Num = 3 TO rootmax STEP 2
  21.  
  22.   ' check for prime
  23.   IF NOT flags(Num) THEN
  24.  
  25.     ' print prime number
  26.     PRINT USING " ###### "; Num;
  27.  
  28.     ' flag all multiples
  29.     multiple = 2 * Num
  30.     WHILE multiple <= max
  31.       flags(multiple) = NonPrime
  32.       multiple = multiple + Num
  33.     WEND
  34.   END IF
  35.  
  36.   ' flag even numbers
  37.   flags(Num + 1) = NonPrime
  38. NEXT
  39.  
  40. END ' of program
  41.